[relativepath]
	Relativepath Version 1.0 -- Created by 
	Johan Slve <mailto:johan@montania.se> 2000-08-28
	Lets you use unix-style relative paths with Lasso. 
	
	Usage example: 
		[relativepath: '../../myfile.lasso']
	Also supports:
		[relativepath: '/myfile.lasso']
		[relativepath: 'myfile.lasso']

#MACRO_BEGIN
[Macro_Parent: #MACRO_INSERT_PARAMS#][if: (String_Extract: EncodeNone, 
	StartPosition='1', EndPosition='1', 
	(macro_param: '1', EncodeNone))=='/'][macro_param: '1', EncodeNone][else][Loop: loopfrom=2,
	loopto=(math_sub: (String_CountFields: delimiter='/', (Response_FilePath)),
		(String_CountFields: (macro_param: '1', EncodeNone), delimiter='../'))
]/[String_GetField: EncodeNone, FieldNumber=(LoopCount), delimiter='/', 
	(Response_FilePath)][/Loop]/[String_RemoveLeading: EncodeNone, Pattern='../',
	(macro_param: '1', EncodeNone)][/if][/Macro_Parent]
#MACRO_END
